From 370cdf98c512b63078d3132c06efe69b80a0d904 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 20 Oct 2003 19:05:51 +0000 Subject: [PATCH] (easy-mmode-define-navigation): Avoid incf in macro expansion. --- lisp/emacs-lisp/easy-mmode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 9d73a8cdac8..cdc4bc3aca0 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -1,6 +1,6 @@ ;;; easy-mmode.el --- easy definition for major and minor modes -;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. ;; Author: Georges Brun-Cottan ;; Maintainer: Stefan Monnier @@ -440,7 +440,7 @@ ENDFUN should return the end position (with or without moving point)." (interactive) (unless count (setq count 1)) (if (< count 0) (,prev-sym (- count)) - (if (looking-at ,re) (incf count)) + (if (looking-at ,re) (setq count (1+ count))) (if (not (re-search-forward ,re nil t count)) (if (looking-at ,re) (goto-char (or ,(if endfun `(,endfun)) (point-max))) -- 2.30.2